home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL33.PRO < prev    next >
Encoding:
Text File  |  1986-04-01  |  244 b   |  10 lines
  1.                /* Program 33 */
  2. goal
  3.    write("Before graphics"),readchar(_),
  4.    graphics(1,1,4),
  5.    line(4000,4000,10000,20000,2),
  6.    write("ordinary write during graphics mode"),
  7.    readchar(_),
  8.    text,
  9.    write("After graphics").
  10.